<%
Select Case Request.QueryString("acc")
	Case "habilitar"
		Habilitar
	Case "desabilitar"
		Desabilitar
End Select

Sub Habilitar()
	Response.Cookies("soling") = "ITSel"
	Response.Cookies("soling").Expires = "15/09/2006"
End Sub

Sub Desabilitar()
	Response.Cookies("soling").Expires = Date()-1
End Sub
%>